home *** CD-ROM | disk | FTP | other *** search
- 0 rem -- program 2 --
- 10 fork=0to10
- 20 reada:c=c+a
- 30 poke16384+k,a:nextk
- 40 ifc<>839thenprint"data error":end
- 50 sys16384
- 16384 data 162,0
- 16386 data 189,0,4
- 16389 data 164,2
- 16391 data 153,64,5
- 16394 data 96
-